﻿Imports System.Data.SqlClient
Public Class DF02_MR

    Inherits Conexion
    Dim cmd As New SqlCommand
    Public Function guardar(ByVal dts As Entidades.EF02Vehiculos) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_guardar_F02MR")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@diaorden", dts.diaorde)
            cmd.Parameters.AddWithValue("@mesorden", dts.mesorde)
            cmd.Parameters.AddWithValue("@añoorden", dts.añoorde)
            cmd.Parameters.AddWithValue("@diaalta", dts.diaalt)
            cmd.Parameters.AddWithValue("@mesalta", dts.mesalt)
            cmd.Parameters.AddWithValue("@añoalta", dts.añoalt)
            cmd.Parameters.AddWithValue("@apenomtitular", dts.apenomti)
            cmd.Parameters.AddWithValue("@juzgado", dts.juzgad)
            cmd.Parameters.AddWithValue("@secretaria", dts.secretari)
            cmd.Parameters.AddWithValue("@argdni", dts.argdnii)
            cmd.Parameters.AddWithValue("@argle", dts.arglee)
            cmd.Parameters.AddWithValue("@arglc", dts.arglcc)
            cmd.Parameters.AddWithValue("@extrdni", dts.extrdnii)
            cmd.Parameters.AddWithValue("@extrci", dts.extrcii)
            cmd.Parameters.AddWithValue("@extrpasap", dts.extrpasapp)
            cmd.Parameters.AddWithValue("@numdocumento", dts.numdocumentoo)
            cmd.Parameters.AddWithValue("@autoridadpais", dts.autoridadpai)
            cmd.Parameters.AddWithValue("@personeria", dts.personeri)
            cmd.Parameters.AddWithValue("@numinsc", dts.numins)
            cmd.Parameters.AddWithValue("@diainsc", dts.diains)
            cmd.Parameters.AddWithValue("@mesinsc", dts.mesins)
            cmd.Parameters.AddWithValue("@añoinsc", dts.añoins)
            cmd.Parameters.AddWithValue("@porcentajetit", dts.porcentajeti)
            cmd.Parameters.AddWithValue("@apenomtit", dts.apenomti)
            cmd.Parameters.AddWithValue("@calletit", dts.calleti)
            cmd.Parameters.AddWithValue("@dnitit", dts.dniti)
            cmd.Parameters.AddWithValue("@letit", dts.leti)
            cmd.Parameters.AddWithValue("@lctit", dts.lcti)
            cmd.Parameters.AddWithValue("@dniextrtit", dts.dniextrti)
            cmd.Parameters.AddWithValue("@ciextrtit", dts.ciextrti)
            cmd.Parameters.AddWithValue("@pasaptit", dts.pasapti)
            cmd.Parameters.AddWithValue("@numdoctit", dts.numdocti)
            cmd.Parameters.AddWithValue("@autoridadtit", dts.autoridadti)
            cmd.Parameters.AddWithValue("@dianactit", dts.dianacti)
            cmd.Parameters.AddWithValue("@mesnactit", dts.mesnacti)
            cmd.Parameters.AddWithValue("@añonactit", dts.añonacti)
            cmd.Parameters.AddWithValue("@solterotit", dts.solteroti)
            cmd.Parameters.AddWithValue("@casadotit", dts.casadoti)
            cmd.Parameters.AddWithValue("@viudotit", dts.viudoti)
            cmd.Parameters.AddWithValue("@divtit", dts.divti)
            cmd.Parameters.AddWithValue("@numpuciatit", dts.numnupciati)
            cmd.Parameters.AddWithValue("@apenomconytit", dts.apenomconyti)
            cmd.Parameters.AddWithValue("@pertit", dts.perti)
            cmd.Parameters.AddWithValue("@insctit", dts.inscti)
            cmd.Parameters.AddWithValue("@diacreaciontit", dts.diacreacionti)
            cmd.Parameters.AddWithValue("@mescreaciontit", dts.mescreacionti)
            cmd.Parameters.AddWithValue("@añocreaciontit", dts.añocreacionti)
            cmd.Parameters.AddWithValue("@porcentajecond", dts.porcentajeti)
            cmd.Parameters.AddWithValue("@apenomcond", dts.apenomti)
            cmd.Parameters.AddWithValue("@callecond", dts.calleti)
            cmd.Parameters.AddWithValue("@dnicond", dts.dniti)
            cmd.Parameters.AddWithValue("@lecond", dts.leti)
            cmd.Parameters.AddWithValue("@lccond", dts.lcti)
            cmd.Parameters.AddWithValue("@dniextrcond", dts.dniextrti)
            cmd.Parameters.AddWithValue("@ciextrcond", dts.ciextrti)
            cmd.Parameters.AddWithValue("@pasapcond", dts.pasapti)
            cmd.Parameters.AddWithValue("@numdoccond", dts.numdocti)
            cmd.Parameters.AddWithValue("@autoridadcond", dts.autoridadti)
            cmd.Parameters.AddWithValue("@dianaccond", dts.dianacti)
            cmd.Parameters.AddWithValue("@mesnaccond", dts.mesnacti)
            cmd.Parameters.AddWithValue("@añonaccond", dts.añonacti)
            cmd.Parameters.AddWithValue("@solterocond", dts.solteroti)
            cmd.Parameters.AddWithValue("@casadocond", dts.casadoti)
            cmd.Parameters.AddWithValue("@viudocond", dts.viudoti)
            cmd.Parameters.AddWithValue("@divcond", dts.divti)
            cmd.Parameters.AddWithValue("@numpuciacond", dts.numnupciati)
            cmd.Parameters.AddWithValue("@apenomconycond", dts.apenomconyti)
            cmd.Parameters.AddWithValue("@percond", dts.perti)
            cmd.Parameters.AddWithValue("@insccond", dts.inscti)
            cmd.Parameters.AddWithValue("@diacreacioncond", dts.diacreacionti)
            cmd.Parameters.AddWithValue("@mescreacioncond", dts.mescreacionti)
            cmd.Parameters.AddWithValue("@añocreacioncond", dts.añocreacionti)
            cmd.Parameters.AddWithValue("@afectaciones", dts.afectacioness)
            cmd.Parameters.AddWithValue("@apenomvend", dts.apenomven)
            cmd.Parameters.AddWithValue("@fechatransf", dts.fechatrans)
            cmd.Parameters.AddWithValue("@numasignado", dts.numasignad)
            cmd.Parameters.AddWithValue("@numchasisasignado", dts.numchasisasignad)
            cmd.Parameters.AddWithValue("@observaciones", dts.observacione)
            cmd.Parameters.AddWithValue("@lugar", dts.luga)
            cmd.Parameters.AddWithValue("@dia", dts.diaa)
            cmd.Parameters.AddWithValue("@mes", dts.mess)
            cmd.Parameters.AddWithValue("@año", dts.añoo)
            cmd.Parameters.AddWithValue("@autoriza", dts.autoriz)
            cmd.Parameters.AddWithValue("@doc", dts.docc)
            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function

    Public Function modificar(ByVal dts As Entidades.EF02Vehiculos) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_modificar_F02MR")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@diaorden", dts.diaorde)
            cmd.Parameters.AddWithValue("@mesorden", dts.mesorde)
            cmd.Parameters.AddWithValue("@añoorden", dts.añoorde)
            cmd.Parameters.AddWithValue("@diaalta", dts.diaalt)
            cmd.Parameters.AddWithValue("@mesalta", dts.mesalt)
            cmd.Parameters.AddWithValue("@añoalta", dts.añoalt)
            cmd.Parameters.AddWithValue("@apenomtitular", dts.apenomti)
            cmd.Parameters.AddWithValue("@juzgado", dts.juzgad)
            cmd.Parameters.AddWithValue("@secretaria", dts.secretari)
            cmd.Parameters.AddWithValue("@argdni", dts.argdnii)
            cmd.Parameters.AddWithValue("@argle", dts.arglee)
            cmd.Parameters.AddWithValue("@arglc", dts.arglcc)
            cmd.Parameters.AddWithValue("@extrdni", dts.extrdnii)
            cmd.Parameters.AddWithValue("@extrci", dts.extrcii)
            cmd.Parameters.AddWithValue("@extrpasap", dts.extrpasapp)
            cmd.Parameters.AddWithValue("@numdocumento", dts.numdocumentoo)
            cmd.Parameters.AddWithValue("@autoridadpais", dts.autoridadpai)
            cmd.Parameters.AddWithValue("@personeria", dts.personeri)
            cmd.Parameters.AddWithValue("@numinsc", dts.numins)
            cmd.Parameters.AddWithValue("@diainsc", dts.diains)
            cmd.Parameters.AddWithValue("@mesinsc", dts.mesins)
            cmd.Parameters.AddWithValue("@añoinsc", dts.añoins)
            cmd.Parameters.AddWithValue("@porcentajetit", dts.porcentajeti)
            cmd.Parameters.AddWithValue("@apenomtit", dts.apenomti)
            cmd.Parameters.AddWithValue("@calletit", dts.calleti)
            cmd.Parameters.AddWithValue("@dnitit", dts.dniti)
            cmd.Parameters.AddWithValue("@letit", dts.leti)
            cmd.Parameters.AddWithValue("@lctit", dts.lcti)
            cmd.Parameters.AddWithValue("@dniextrtit", dts.dniextrti)
            cmd.Parameters.AddWithValue("@ciextrtit", dts.ciextrti)
            cmd.Parameters.AddWithValue("@pasaptit", dts.pasapti)
            cmd.Parameters.AddWithValue("@numdoctit", dts.numdocti)
            cmd.Parameters.AddWithValue("@autoridadtit", dts.autoridadti)
            cmd.Parameters.AddWithValue("@dianactit", dts.dianacti)
            cmd.Parameters.AddWithValue("@mesnactit", dts.mesnacti)
            cmd.Parameters.AddWithValue("@añonactit", dts.añonacti)
            cmd.Parameters.AddWithValue("@solterotit", dts.solteroti)
            cmd.Parameters.AddWithValue("@casadotit", dts.casadoti)
            cmd.Parameters.AddWithValue("@viudotit", dts.viudoti)
            cmd.Parameters.AddWithValue("@divtit", dts.divti)
            cmd.Parameters.AddWithValue("@numpuciatit", dts.numnupciati)
            cmd.Parameters.AddWithValue("@apenomconytit", dts.apenomconyti)
            cmd.Parameters.AddWithValue("@pertit", dts.perti)
            cmd.Parameters.AddWithValue("@insctit", dts.inscti)
            cmd.Parameters.AddWithValue("@diacreaciontit", dts.diacreacionti)
            cmd.Parameters.AddWithValue("@mescreaciontit", dts.mescreacionti)
            cmd.Parameters.AddWithValue("@añocreaciontit", dts.añocreacionti)
            cmd.Parameters.AddWithValue("@porcentajecond", dts.porcentajeti)
            cmd.Parameters.AddWithValue("@apenomcond", dts.apenomti)
            cmd.Parameters.AddWithValue("@callecond", dts.calleti)
            cmd.Parameters.AddWithValue("@dnicond", dts.dniti)
            cmd.Parameters.AddWithValue("@lecond", dts.leti)
            cmd.Parameters.AddWithValue("@lccond", dts.lcti)
            cmd.Parameters.AddWithValue("@dniextrcond", dts.dniextrti)
            cmd.Parameters.AddWithValue("@ciextrcond", dts.ciextrti)
            cmd.Parameters.AddWithValue("@pasapcond", dts.pasapti)
            cmd.Parameters.AddWithValue("@numdoccond", dts.numdocti)
            cmd.Parameters.AddWithValue("@autoridadcond", dts.autoridadti)
            cmd.Parameters.AddWithValue("@dianaccond", dts.dianacti)
            cmd.Parameters.AddWithValue("@mesnaccond", dts.mesnacti)
            cmd.Parameters.AddWithValue("@añonaccond", dts.añonacti)
            cmd.Parameters.AddWithValue("@solterocond", dts.solteroti)
            cmd.Parameters.AddWithValue("@casadocond", dts.casadoti)
            cmd.Parameters.AddWithValue("@viudocond", dts.viudoti)
            cmd.Parameters.AddWithValue("@divcond", dts.divti)
            cmd.Parameters.AddWithValue("@numpuciacond", dts.numnupciati)
            cmd.Parameters.AddWithValue("@apenomconycond", dts.apenomconyti)
            cmd.Parameters.AddWithValue("@percond", dts.perti)
            cmd.Parameters.AddWithValue("@insccond", dts.inscti)
            cmd.Parameters.AddWithValue("@diacreacioncond", dts.diacreacionti)
            cmd.Parameters.AddWithValue("@mescreacioncond", dts.mescreacionti)
            cmd.Parameters.AddWithValue("@añocreacioncond", dts.añocreacionti)
            cmd.Parameters.AddWithValue("@afectaciones", dts.afectacioness)
            cmd.Parameters.AddWithValue("@apenomvend", dts.apenomven)
            cmd.Parameters.AddWithValue("@fechatransf", dts.fechatrans)
            cmd.Parameters.AddWithValue("@numasignado", dts.numasignad)
            cmd.Parameters.AddWithValue("@numchasisasignado", dts.numchasisasignad)
            cmd.Parameters.AddWithValue("@observaciones", dts.observacione)
            cmd.Parameters.AddWithValue("@lugar", dts.luga)
            cmd.Parameters.AddWithValue("@dia", dts.diaa)
            cmd.Parameters.AddWithValue("@mes", dts.mess)
            cmd.Parameters.AddWithValue("@año", dts.añoo)
            cmd.Parameters.AddWithValue("@autoriza", dts.autoriz)
            cmd.Parameters.AddWithValue("@doc", dts.docc)
            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function
End Class
